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ABSTRACT: 

PURPOSE: To automatically update the user control file 
and file catalogue 

only by inputting parameters interactively. 

CONSTITUTION: A main catalogued procedure MCP reads out 
a parameter- 
inputted user name, an addition/deletion discrimination, 

and access authority 

level interactively, updates Ist-mth user group files 
UGFl-UGFm, and generates 

and starts a user control service program which updates the 
user information in 

the user control file. Then lst-2nth subcatalogued 
procedures SCPl-SCP2n are 

started by the main catalogued procedure MCP and generate 
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and start a resource 

controls service program SMSP which updates the access 
information in the file 

catalogue by using the Ist-mth user group files UGFI 
1-UGFm. 
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UMSP tr^^r^o ^7 A 



VJOB RUN_UAF USER-S610 ACCOUNT-SYStEH \ 
*JOH VWITER-ATSS OUriO-SPR; 
WAFMTN UPDATE 

COMF1 LE-COMi 
ylNPUT COM \ 

/MO USER-NEC057 GBP-NEC VIS-VES ATSS-VES 

ATSSOPT -(CSC'CI . 2 .3) .PREPU«DVLP} .PRQF]LE«(MEMJ"YE5 ), 

J08CL-(C.D,E.F.CtH,I.J,K.L,M.N.0.P.Q,R.S.T) 
//AO USER-NECOSft GRP-NHC VIS-YES ATSS-VES 

ATSSGPr-(CSC-(1. 2 .3) .PREFIX -DVLP) . PROHLE-CmEKU-VES). 

JOaCL-(C.D,E.F .O.H.J J ,K .L.M.N.O.P .Q,R S J ) 
//AO USER=NEC050 GRP-NEC VIS-VES ATSS-VES 

ATSSOPT .<CSC-( 1.2.3). PREF I X-OVLP). PRt>FlLE-( MENU-YES). 

J08CL-<C.D.E.F. G.H.I .J.K.L.M.N.O.Pia.R.S.T) 
//AD US£R*f€C059 CfiP»NEC V!5=YES ATSS-YtS 

ATSSOPT .(CSC-(1. 2 .3 ),PREFI X-DVLP) . PROFILE -(MENU^ES) . 

JOBCL«(C.D£.F. G.H.I . J ,K.L.M.N,0,P.Q.R,S.T ) 
//AD USEH-NHCOei GRP-NEC V 15-YES ATSS-VES ^ 

ATSSOpT-{ C5C-(1.2.3).PH£F1X -OVLP) . PROFl LE-CHENU^S ) . 

JOBCL-(C,0,E»F,G.H »I , J.K ,(. .M><.0tP*O.R.5.T) 
//AD IISER»NEC0B2 OHP"=NEC VIS=YES ATSS^ES 

AT SSOPT-(CSC- ( 1 . 2 ,3 ) , PREF U -€VLP ) . PROF lLE-< MENU-YES ) , 

JOBa«(C,D,E.F ,G,H.l . J*X.L«M,N.0.PU1J1.5.T ) 
//AO U5ER-NEC063 GRP-NEC VIS-YES ATSS-VES . 

AT SS0PT-(C5C-( 1,2.2) PREFU-DVLP).PROFlLE-(MEHU-y€S), 

JQBCM CD .£ .F ,C .H , 1 . J .K X «M,N^ .P ,a,R .S ,T ) 

¥END1NPU ; 

VEND job; 
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yjOB RUAFCTLO USEfl-S610 ACCOUKT -SYSTEM RE PORT -ABNORMAL i 
¥JOH VWIieR-ATSS OJTIO-SPRj 
VCTICMTN UPDATE 

tCOMPlLE-COM: 
¥ INPUT COM; 
//PT ADD 

FLENT«LIBX,PCNLie 
awNeR-( SYSTEM ,56 10) 
OACCMJPOATE 
ACL-( 

fCNONE 
(N.A1279a65) (N,A12 18231 )(N,Al219«ft7] (N,A1 222185) 
(NEC.A7T77777} (NEC, ABBBeaeS) (NEC, ASS S9999) 



)^£NDINPUt; 
¥ END JOB; 
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